home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / skydiver (nw) (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  105 lines
  1. 5 REM:** COMPUTE GAZETTE JUL 83 **
  2. 6 REM:** SKYDIVER **
  3. 8 T=54272:E=2
  4. 10 PRINT"[147]":GOTO60100
  5. 12 A(1)=1192:A(2)=1202:A(3)=1209
  6. 14 SC=0:BO=100:BA=3:WA=7:W=8:EX=0
  7. 16 PRINT"SCORE: 000   "
  8. 20 GOSUB5000
  9. 21 PRINT"";TAB(14);"   [157][157][157]";A$
  10. 22 CT=39+INT(RND(TI)*20+1):CC=0
  11. 30 A=0
  12. 100 PRINT"";TAB(A);"[146] [223][157][157][146] [162][162]":A=A+1
  13. 102 CC=CC+1:IFCC>=CT ANDA<39ANDA>1THEN120
  14. 105 IFA>=38THENPRINT"";TAB(A);" [157]  ":A=0
  15. 110 GOSUB1000:IFFR<>0THENFORI=1TO50:NEXT:GOTO100
  16. 112 IFA>38ORA<1THEN100
  17. 120 PRINT"";TAB(A);" [157]  "
  18. 200 B=1146+A:T=INT(RND(TI)*8+1):T=T+1
  19. 210 CH=46:C=0
  20. 212 C=C+1
  21. 220 POKEB,CH:POKEB,32:B=B+22
  22. 230 POKEB+T7,4:POKEB,CH:IFC<TTHENFORY=1TO80:NEXT:GOTO212
  23. 300 CH=65
  24. 305 POKEB+T7,4:POKEB,CH
  25. 310 GOSUB1000:C=C+1
  26. 320 IFC>=WTHENIFR=4THENPOKEB,32:B=B-1:POKEB+T7,4:POKEB,CH:C=0
  27. 330 IFC>=WTHENIFR=8THENPOKEB,32:B=B+1:POKEB+T7,4:POKEB,CH:C=0
  28. 340 D=D+1
  29. 350 IFD>=WATHENPOKEB,32:B=B+40
  30. 355 IFD>=WATHEND=0:IFPEEK(B)<>32THEN3000
  31. 360 POKEB+T7,4:POKEB,CH
  32. 370 WI=WI+1
  33. 390 IFWI>=SANDDI=-1THENPOKEB,32:B=B+DI:POKEB+T7,4:WI=0
  34. 395 IFWI>=SANDDI=1THENPOKEB,32:B=B+DI:POKEB+T7,4:WI=0
  35. 400 IFPEEK(B)<>32ANDPEEK(B)<>CHTHEN3000
  36. 410 POKEB,CH
  37. 500 GOTO300
  38. 1000 R=PEEK(56321)
  39. 1010 FR=RAND16
  40. 1020 R=15-(RAND15):RETURN
  41. 3000 POKEB+T7,4
  42. 3010 IFP=1THENIFB=1831ORB=1832THENPOKEB,CH:GOTO4000
  43. 3020 IFP=2THENIFB=1842THENPOKEB,CH:GOTO4050
  44. 3030 IFP=3THENIFB=1851ORB=1853ORB=1855THENPOKEB,CH:GOTO4100
  45. 3040 POKEB,170:GOTO12000
  46. 4000 PRINT"5 X";BO;"=";5*BO
  47. 4010 VA=5*BO:GOTO10000
  48. 4050 PRINT"10 X";BO;"=";10*BO
  49. 4060 VA=10*BO:GOTO10000
  50. 4100 PRINT"2 X";BO;"=";2*BO
  51. 4110 VA=2*BO:GOTO10000
  52. 5000 PRINT""
  53. 5020 PRINT"      [144][182][158][162][162][162][162][144][181]     [144][182][158][162][162][162][144][181]       [182][158][162][162][162][162][162][144][181]"
  54. 5030 PRINT"        5X         10X          2X      [146]";
  55. 5040 FORI=1984TO2023:POKEI+T7,6:POKEI,160:NEXT
  56. 5041 IFBA<=0THEN60000
  57. 5042 PRINT"";TAB(17);"    "
  58. 5043 IFBA>1THENPRINT"";TAB(18);:FORI=1TOBA-1:PRINT"[193]";:NEXT:PRINT
  59. 5045 SS=INT(RND(TI)*3+1):DI=INT(RND(TI)*2+1):IFDI=2THENDI=-1
  60. 5048 IFSS=1THENS=5:SD=15
  61. 5049 IFSS=2THENS=10:SD=10
  62. 5050 IFSS=3THENS=15:SD=5
  63. 5052 D$="RIGHT":IFDI=-1THEND$="LEFT"
  64. 5053 IFNJ>=NETHENBO=BO+50:PRINT"BONUS ADVANCE TO";BO:PRINT""
  65. 5054 IFNJ>=NETHENIFWA>4THENWA=WA-1
  66. 5055 IFNJ>=NETHENJ=0:IFW<18THENW=W+1
  67. 5056 PRINT"";TAB(8);"WIND:";SD"TO ";D$:GOSUB50000
  68. 5057 FORK=1TO1000:NEXT:PRINT"                    "
  69. 5060 FORI=1104TO1864STEP40:POKEI,96:POKEI+39,96:NEXT
  70. 5070 RETURN
  71. 10000 JM=JM+1:NJ=NJ+1
  72. 10100 FORP=1TOVA/10:PRINT"SCORE:";SC:POKES3,0:SC=SC+10:NEXT:PRINT"SCORE:";
  73. 10110 FORID=1TO1000:NEXT:IFEX=0ANDSC>=5000THENBA=BA+1:EX=1
  74. 10120 PRINT"                     ":GOTO20
  75. 12000 PRINT"SORRY NO BONUS!":BA=BA-1
  76. 12010 FORID=1TO500:NEXT
  77. 12120 POKEB,32:PRINT"                     ":GOTO20
  78. 50000 REM:**SELECTION**
  79. 50010 PRINT"    5X   10X  2X":P=1:Z=P
  80. 50020 TI$="000000"
  81. 50025 POKEA(P),PEEK(A(P))+128AND255
  82. 50027 TM=15-VAL(TI$)
  83. 50028 PRINT"";TAB(10);"  [157][157][157]";TM:IFTM=0THENP=INT(RND(TI)*3+1):GOTO50100
  84. 50030 GOSUB1000:IFR=4ORR=8THENX=PEEK(A(P)):IFX>129THENPOKEA(P),X+128AND255
  85. 50035 IFR>127THEN50100
  86. 50040 GOSUB1000:IFR=4THENP=P-1:IFP<1THENP=3
  87. 50045 IFR=8THENP=P+1:IFP>3THENP=1
  88. 50050 FORID=1TO100:NEXT:GOTO50025
  89. 50100 A$="2X":IFP=1THENA$="5X"
  90. 50110 IFP=2THENA$="10X"
  91. 50120 PRINT" YOU MUST LAND ON ";A$
  92. 50140 FORID=1TO1500:NEXT
  93. 50150 PRINT"":FORID=1TO18:PRINT"                              ":NEXT:RETURN
  94. 60000 PRINT"GAME OVER":IFSC>HITHENHI=SC
  95. 60010 FORHD=1TO2000:NEXT
  96. 60020 PRINT"         "
  97. 60100 POKE53281,1:POKE53280,6   :PRINT"           [144] SKY DIVER"
  98. 60110 PRINT:PRINT:PRINT:PRINT""
  99. 60120 PRINT"        USE JOYSTICK TO PLAY"
  100. 60130 PRINT:PRINT:PRINT:PRINT""
  101. 60140 PRINT"            HIGH SCORE":PRINT""
  102. 60150 XX=LEN(STR$(HI))/2:PRINTTAB(16-XX);HI
  103. 60160 GOSUB1000:IFFR<>0THEN60160
  104. 60170 PRINT"[147]":FORK=1TO18:PRINT"                     ":NEXT:GOTO12
  105.